object frmVariacionSueldos: TfrmVariacionSueldos
  Left = 397
  Top = 179
  Width = 555
  Height = 463
  Caption = 'Variaci'#243'n de Sueldos x Hora de Trabajo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    547
    429)
  PixelsPerInch = 96
  TextHeight = 13
  object lblFechaIni: TLabel
    Left = 12
    Top = 10
    Width = 28
    Height = 13
    Caption = 'Inicio:'
  end
  object lblFechaFin: TLabel
    Left = 137
    Top = 10
    Width = 25
    Height = 13
    Caption = 'Final:'
  end
  object Label2: TLabel
    Left = 296
    Top = 13
    Width = 33
    Height = 13
    Anchors = [akTop, akRight]
    Caption = 'Filtro:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object edtFechaIni: TDateEdit
    Left = 48
    Top = 4
    Width = 76
    Height = 21
    Ctl3D = False
    DefaultToday = True
    DialogTitle = 'Seleccione una Fecha'
    NumGlyphs = 2
    ParentCtl3D = False
    YearDigits = dyTwo
    TabOrder = 0
    Text = '07/12/06'
    OnChange = edtFechaIniChange
  end
  object edtFechaFin: TDateEdit
    Left = 170
    Top = 4
    Width = 85
    Height = 21
    Ctl3D = False
    DefaultToday = True
    NumGlyphs = 2
    ParentCtl3D = False
    YearDigits = dyTwo
    TabOrder = 1
    Text = '07/12/06'
    OnChange = edtFechaIniChange
  end
  object grdVarSueldos: TRxDBGrid
    Left = 7
    Top = 32
    Width = 532
    Height = 387
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = s
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    ParentFont = False
    PopupMenu = PopupMenu1
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clNavy
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    OnDrawColumnCell = grdVarSueldosDrawColumnCell
    OnTitleClick = grdVarSueldosTitleClick
    MultiSelect = True
    Columns = <
      item
        Expanded = False
        FieldName = 'APENOM'
        Title.Alignment = taCenter
        Width = 266
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MINIMO'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MAXIMO'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VARIACION'
        Title.Alignment = taCenter
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 464
    Top = 3
    Width = 75
    Height = 25
    Anchors = [akTop, akRight]
    Caption = 'Cargar'
    TabOrder = 3
    OnClick = BitBtn1Click
  end
  object edtFiltroMaterial: TEdit
    Left = 336
    Top = 5
    Width = 121
    Height = 21
    Anchors = [akTop, akRight]
    CharCase = ecUpperCase
    TabOrder = 4
    OnChange = edtFiltroMaterialChange
  end
  object cds: TSQLClientDataSet
    CommandText = 
      'SELECT '#13#10'  OPERARIO.ID_OPERARIO,'#13#10'  OPERARIO.APELLIDO||coalesce(' +
      #39', '#39'||OPERARIO.NOMBRE, '#39#39') as APENOM,'#13#10'  MAX(PAGO_OPERARIO.ENMAN' +
      'O) AS MAXIMO,'#13#10'  MIN(PAGO_OPERARIO.ENMANO) AS MINIMO,'#13#10'  (MAX(PA' +
      'GO_OPERARIO.ENMANO)-MIN(PAGO_OPERARIO.ENMANO))'#13#10'  /MIN(PAGO_OPER' +
      'ARIO.ENMANO)*100 AS VARIACION'#13#10'FROM'#13#10'  OPERARIO'#13#10'  RIGHT JOIN PA' +
      'GO_OPERARIO ON (OPERARIO.ID_OPERARIO = PAGO_OPERARIO.ID_OPERARIO' +
      ')'#13#10'WHERE'#13#10'  PAGO_OPERARIO.FECHA >= :fechaIni AND'#13#10'  PAGO_OPERARI' +
      'O.FECHA <= :fechaFin AND'#13#10'  PAGO_OPERARIO.ENMANO <> 0'#13#10'GROUP BY'#13 +
      #10'  OPERARIO.ID_OPERARIO,'#13#10'  OPERARIO.APELLIDO,'#13#10'  OPERARIO.NOMBR' +
      'E'#13#10'HAVING'#13#10'  MAX(PAGO_OPERARIO.ENMANO) <> MIN(PAGO_OPERARIO.ENMA' +
      'NO)'
    Aggregates = <>
    AggregatesActive = True
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'fechaIni'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'fechaFin'
        ParamType = ptInput
      end>
    BeforeOpen = cdsBeforeOpen
    DBConnection = Datos.Con
    Left = 16
    Top = 344
    object cdsID_OPERARIO: TSmallintField
      FieldName = 'ID_OPERARIO'
    end
    object cdsAPENOM: TStringField
      DisplayLabel = 'Apellido y Nombre'
      FieldName = 'APENOM'
      Size = 52
    end
    object cdsMAXIMO: TFloatField
      DisplayLabel = 'M'#225'ximo'
      FieldName = 'MAXIMO'
      DisplayFormat = '#,###,##0.00'
    end
    object cdsMINIMO: TFloatField
      DisplayLabel = 'M'#237'nimo'
      FieldName = 'MINIMO'
      DisplayFormat = '#,###,##0.00'
    end
    object cdsVARIACION: TFloatField
      DisplayLabel = '% Var.'
      FieldName = 'VARIACION'
      DisplayFormat = '#,###,##0.00'
    end
  end
  object s: TDataSource
    DataSet = cds
    Left = 48
    Top = 344
  end
  object PopupMenu1: TPopupMenu
    Left = 80
    Top = 344
    object Verdetalle1: TMenuItem
      Caption = 'Ver detalle...'
      OnClick = Verdetalle1Click
    end
  end
end
